<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>305</cardCount>
<cardID>2951</cardID>
<listID>87178</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackif the version < 2.1 thenanswer "This stack requires HyperCard version 2.1."set lockMessages to TRUEgo homeexit openStackelseset cantAbort of this stack to truehide messageset the visible of msg to falseset the blindTyping to falseput the number of cards into checKinif checKin < 303 thenput 1 into cd fld ID 93 of cd ID 163212visual effect dissolve slowgo cd ID 164751visual effect dissolve slowgo cd ID 162933get cd fld ID 94 of cd ID 163212put it into checKoutTwoget cd fld ID 93 of cd ID 163212put it into checKoutOneelseset the cursor to busyput 1 into cd fld ID 93 of cd ID 163212visual effect dissolve slowgo cd ID 4572visual effect dissolve slowgo cd ID 2951get cd fld ID 94 of cd ID 163212put it into checKoutTwoget cd fld ID 93 of cd ID 163212put it into checKoutOneend ifif checKoutOne <> checKoutTwo thengo cd ID 136453elseput 0 into cd fld ID 93 of cd ID 163212global doubleClick,userState,whichFld,limits,dodGe,currentSiz,butWhich,beneWhich,survWhich,continuiTy,temPorary,Xsports,bullSeye,Xlevel,whatSis,duoItNowif there is a menuItem "Icon..." of menu "Edit" thendelete menuItem "Icon..." of menu "Edit"end ifif there is a menuItem "Scroll" of menu "Go" thendelete menuItem "Scroll" of menu "Go"end ifput 0 into cd fld ID 88 of cd ID 163212put the userLevel into userStateput the number of cards into checKinif checKin < 303 thenput 3 into whatSisput 1 into duoItNowelseif there is a menu "Font" thendelete menu "Font"end ifif there is a menu "Style" thendelete menu "Style"end ifput 2 into whatSisput 1 into duoItNowend ifput empty into whichFldput empty into limitsput empty into dodGeput the ticks into doubleClickput 1 into butWhichput 1 into beneWhichput 1 into survWhichput 0 into bullSeyeput cd fld ID 87 of cd ID 163212 into Xlevelput cd fld ID 75 of cd ID 163212 into currentSizput empty into bg fld "Pos V" of cd ID 163212put empty into bg fld "Pos H" of cd ID 163212put empty into bg fld "Pos D" of cd ID 163212get the long name of this stackput it into gotChaget word 2 of gotChaput it into interMediateget the length of interMediateput it into voluMdelete char 1 of interMediateput empty into cd fld ID 78 of cd ID 163212put 1 into iput "" into culPritrepeat until i = voluMset the cursor to busyget char 1 of interMediateput it into trialif trial = ":" thenput i into culPritexit repeatelseput trial after cd fld ID 78 of cd ID 163212delete char 1 of interMediateend ifadd 1 to iend repeatput cd fld ID 78 of cd ID 163212 into comParinif comParin = cd fld ID 79 of cd ID 163212 thenput 1 into aelseput comParin into cd fld ID 79 of cd ID 163212add 1 to cd fld ID 80 of cd ID 163212end ifend ifend ifset cantAbort of this stack to falseend openStackon closeStackset cantAbort of this stack to trueset LockMessages to TRUEglobal userState,doubleClick,currentSiz,continuiTyput continuiTy into cd fld ID 76 of cd ID 163212put empty into doubleClickif freeSize of this stack > the size of this stack / 190 thenget userLevelput it into whatAgainif whatAgain < 3 thenget the userLevelset the userLevel to 3doMenu "compact stack"elsedoMenu "compact stack"end ifelseput 1 into aend ifset the userLevel to userStateset lockMessages to falseset cantAbort of this stack to falseend closeStackon doMenu commandput the number of cards into checKinif checKin > 303 thenput cd fld ID 88 of cd ID 163212 into someThinif command is "delete card" and someThin <> 1 thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "new stack..." thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "paste picture" thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "print stack..." thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "print report..." thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "undo" thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "cut" thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "copy" thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "paste" thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "clear" thenput cd fld ID 95 of cd ID 163212 into cd fld ID 2 of card id 143012go to card id 143012elseif command is "new card" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "back" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "first" thengo cd ID 4572elseif command is "prev" thenget the short name of this cardput it into someThindelete word 1 of someThindelete word 1 of someThinif someThin = "4572" thengo cd ID 185878elsego to prev marked cardend ifelseif command is "next" thenget the short name of this cardput it into someThindelete word 1 of someThindelete word 1 of someThinif someThin = "185878" thengo cd ID 4572elsego to next marked cardend ifelseif command is "last" thengo cd ID 185878elseif command is "find..." thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "message" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elsepass doMenuend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifelseif command is "protect stack..." thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "delete stack..." thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "New Card" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "background" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "new card" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "back" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "recent" thenput "This function is unavailable at this time." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "first" thengo cd ID 162933elseif command is "prev" thenget the short name of this cardput it into someThindelete word 1 of someThindelete word 1 of someThinif someThin = "162933" thengo cd ID 185878elsego to prev marked cardend ifelseif command is "next" thenget the short name of this cardput it into someThindelete word 1 of someThindelete word 1 of someThinif someThin = "185878" thengo cd ID 162933elsego to next marked cardend ifelseif command is "last" thengo cd ID 185878elseif command is "find..." thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elseif command is "message" thenput "This function is not available from within FLUX." into cd fld ID 2 of card id 143012go to card id 143012elsepass doMenuend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend doMenuon arrowKey whichWayif whichWay = "left" thengo prev marked cardelseif whichWay = "right" thengo next marked cardelseif whichWay = "up" thengo cd ID 4572elsego cd ID 185878end ifend ifend ifend arrowKeyon aheaDglobal dodGego cd ID 7636go cd ID 7259go cd ID 11348put 1 into dodGerealEstateend aheaDon bacWardglobal dodGeput bg fld ID 3 of cd ID 163212 into checkinOutif checkinOut = "up" thenput "down" into checkinOutelseif checkinOut = "down" thenput "up" into checkinOutelseif checkinOut = "left" thenput "right" into checkinOutelseput "left" into checkinOutend ifend ifend ifput checkinOut into bg fld ID 3 of cd ID 163212go cd ID 16779wait 40go cd ID 17285wait 40go cd ID 17415wait 40go cd ID 17895wait 40go cd ID 11348put 2 into dodGeend bacWardon toLeftglobal dodGeput bg fld ID 3 of cd ID 163212 into checkinOutif checkinOut = "up" thenput "left" into checkinOutelseif checkinOut = "down" thenput "right" into checkinOutelseif checkinOut = "left" thenput "down" into checkinOutelseput "up" into checkinOutend ifend ifend ifput checkinOut into bg fld ID 3 of cd ID 163212go cd ID 20540wait 30go cd ID 20818wait 30go cd ID 21233wait 30go cd ID 21495wait 30go cd ID 21619wait 30go cd ID 21837wait 30go cd ID 11348put 4 into dodGerealEstateend toLefton toRightglobal dodGeput bg fld ID 3 of cd ID 163212 into checkinOutif checkinOut = "up" thenput "right" into checkinOutelseif checkinOut = "down" thenput "left" into checkinOutelseif checkinOut = "left" thenput "up" into checkinOutelseput "down" into checkinOutend ifend ifend ifput checkinOut into bg fld ID 3 of cd ID 163212go cd ID 16779wait 30go cd ID 17116wait 30go cd ID 17285wait 30go cd ID 17415wait 30go cd ID 17895wait 30go cd ID 18038wait 30go cd ID 11348put 3 into dodGerealEstateend toRighton realEstateglobal dodGeput bg fld ID 3 of cd ID 163212 into wayGoinput bg fld ID 1 of cd ID 163212 into attitudeput bg fld ID 2 of cd ID 163212 into journeyif wayGoin = "up" and dodGe = 1 thenadd 2 to attitudeelseif wayGoin = "down" and dodGe = 1 thensubtract 2 from attitudeelseif wayGoin = "right" and dodGe = 1 thenadd 2 to journeyelseif wayGoin = "left" and dodGe = 1 thensubtract 2 from journeyelseif wayGoin = "right" and dodGe = 3 thenadd 1 to journeyadd 1 to attitudeelseif wayGoin = "right" and dodGe = 4 thensubtract 1 from attitudeadd 1 to journeyelseif wayGoin = "left" and dodGe = 4 thensubtract 1 from journeyadd 1 to attitudeelseif wayGoin = "up" and dodGe = 3 thenadd 1 to attitudesubtract 1 from journeyelseif wayGoin = "up" and dodGe = 4 thenadd 1 to journeyadd 1 to attitudeelseif wayGoin = "down" and dodGe = 3 thensubtract 1 from attitudeadd 1 to journeyelseif wayGoin = "down" and dodGe = 4 thensubtract 1 from attitudesubtract 1 from journeyelseif wayGoin = "right" and dodGe = 2 thensubtract 1 from attitudeadd 1 to journeyelseif wayGoin = "left" and dodGe = 3 thensubtract 1 from attitudesubtract 1 from journeyelseput 1 into aend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifif attitude > 7 then put 0 into attitudeif journey > 7 then put 0 into journeyif attitude < ( -1 ) thenput 6 into attitudeelseif attitude < 0 thenput 7 into attitudeend ifend ifif journey < ( -1 ) thenput 6 into journeyelseif journey < 0 thenput 7 into journeyend ifend ifput attitude into bg fld ID 1 of cd ID 163212put journey into bg fld ID 2 of cd ID 163212end realEstateon NWdoorglobal dodGeput 5 into dodGeUpawayput cd fld ID 74 of cd ID 163212 into whereAmput bg fld ID 3 of cd ID 163212 into wayGoinif wayGoin = "up" thenput item 4 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "down" thenput item 2 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "left" thenput item 3 of cd fld ID whereAm of cd ID 163212 into opSesameelseput item 1 of cd fld ID whereAm of cd ID 163212 into opSesameend ifend ifend ifvisual wipe rightgo cd opSesameend NWdooron NEdoorglobal dodGeput 6 into dodGeUpawayput cd fld ID 74 of cd ID 163212 into whereAmput bg fld ID 3 of cd ID 163212 into wayGoinif wayGoin = "up" thenput item 1 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "down" thenput item 3 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "left" thenput item 4 of cd fld ID whereAm of cd ID 163212 into opSesameelseput item 2 of cd fld ID whereAm of cd ID 163212 into opSesameend ifend ifend ifvisual wipe rightgo cd opSesameend NEdooron SWdoorglobal dodGeput 7 into dodGeUpawayput cd fld ID 74 of cd ID 163212 into whereAmput bg fld ID 3 of cd ID 163212 into wayGoinif wayGoin = "up" thenput item 3 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "down" thenput item 1 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "left" thenput item 2 of cd fld ID whereAm of cd ID 163212 into opSesameelseput item 4 of cd fld ID whereAm of cd ID 163212 into opSesameend ifend ifend ifvisual wipe rightgo cd opSesameend SWdooron SEdoorglobal dodGeput 8 into dodGeUpawayput cd fld ID 74 of cd ID 163212 into whereAmput bg fld ID 3 of cd ID 163212 into wayGoinif wayGoin = "up" thenput item 2 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "down" thenput item 4 of cd fld ID whereAm of cd ID 163212 into opSesameelseif wayGoin = "left" thenput item 1 of cd fld ID whereAm of cd ID 163212 into opSesameelseput item 3 of cd fld ID whereAm of cd ID 163212 into opSesameend ifend ifend ifvisual wipe rightgo cd opSesameend SEdooron Upawayglobal dodGeput bg fld ID 1 of cd ID 163212 into attitudeput bg fld ID 2 of cd ID 163212 into journeyif attitude = 0 thenif journey = 1 thenput 1 into whereAmelseif journey = 3 thenput 2 into whereAmelseif journey = 5 thenput 3 into whereAmelseput 4 into whereAmend ifend ifend ifelseif attitude = 1 thenif journey = 0 thenput 5 into whereAmelseif journey = 2 thenput 6 into whereAmelseif journey = 4 thenput 7 into whereAmelseput 8 into whereAmend ifend ifend ifelseif attitude = 2 thenif journey = 1 thenput 9 into whereAmelseif journey = 3 thenput 10 into whereAmelseif journey = 5 thenput 11 into whereAmelseput 12 into whereAmend ifend ifend ifelseif attitude = 3 thenif journey = 0 thenput 13 into whereAmelseif journey = 2 thenput 14 into whereAmelseif journey = 4 thenput 15 into whereAmelseput 16 into whereAmend ifend ifend ifelseif attitude = 4 thenif journey = 1 thenput 17 into whereAmelseif journey = 3 thenput 18 into whereAmelseif journey = 5 thenput 19 into whereAmelseput 20 into whereAmend ifend ifend ifelseif attitude = 5 thenif journey = 0 thenput 21 into whereAmelseif journey = 2 thenput 22 into whereAmelseif journey = 4 thenput 23 into whereAmelseput 24 into whereAmend ifend ifend ifelseif attitude = 6 thenif journey = 1 thenput 25 into whereAmelseif journey = 3 thenput 26 into whereAmelseif journey = 5 thenput 27 into whereAmelseput 28 into whereAmend ifend ifend ifelseif attitude = 7 thenif journey = 0 thenput 29 into whereAmelseif journey = 2 thenput 30 into whereAmelseif journey = 4 thenput 31 into whereAmelseput 32 into whereAmend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifput whereAm into cd fld ID 74 of cd ID 163212end Upawayon idleglobal whatSis, duoItNowif duoItNow = 0 then exit idleput cd fld ID 78 of cd ID 163212 into comParinif whatSis > 4 and comParin = "Maximillian3" thenget the userLevelset the userLevel to 5elseif whatSis = 3 thenget the userLevelset the userLevel to 3elseget the userLevelset the userLevel to 2end ifend ifput 0 into duoItNowend idle</script>
